home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 17 / CU Amiga Magazine's Super CD-ROM 17 (1997)(EMAP Images)(GB)[!][issue 1997-12].iso / CUCD / Programming / MUI / MCC_TimeString / Developer / Cluster / txt / MCCTimeString.mod < prev   
Encoding:
Text File  |  1997-04-22  |  768 b   |  33 lines
  1. |##########|
  2. |#MAGIC   #|GGBAEEAJ
  3. |#PROJECT #|"MuiImport"
  4. |#PATHS   #|"StdProject"
  5. |#LINK    #|""
  6. |#GUIDE   #|""
  7. |#STACK   #|"4096"
  8. |#FLAGS   #|xx---x--xxx--xx-----------------
  9. |#USERSW  #|--------------------------------
  10. |#USERMASK#|--------------------------------
  11. |#SWITCHES#|xx----xxxx-xx---
  12. |##########|
  13. IMPLEMENTATION MODULE MCCTimeString;
  14.  
  15. FROM MuiO IMPORT NewObjectA, MuiTagAPtr, DoMethodRef;
  16.  
  17.  
  18. PROCEDURE MakeTimeStringObjectA (tags : TimeStringTagAPtr) : TimeStringObject;
  19.  
  20. BEGIN
  21.   RETURN NewObjectA (cTimeString, MuiTagAPtr(tags));
  22. END MakeTimeStringObjectA;
  23.  
  24.  
  25. PROCEDURE MakeTimeStringObject (tags : LIST OF TimeStringTags) : TimeStringObject;
  26.  
  27. BEGIN
  28.   RETURN NewObjectA (cTimeString, MuiTagAPtr(tags[0]'PTR));
  29. END MakeTimeStringObject;
  30.  
  31.  
  32. END MCCTimeString.
  33.